home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side2.d81 / speller boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  108 lines
  1. 0 poke53281,0:poke53280,0:printchr$(14)
  2. 1 print"[158][147][204]oading..."
  3. 2 ifa=1then4
  4. 3 a=1:load"title screen",8,1
  5. 4 gb=2:poke56576,gb:sb=7:mb=1:poke53272,sb*16+mb*8:gm=49152-gb*16384
  6. 5 sm=gm+sb*1024:mm=gm+mb*8192:poke53265,peek(53265)or32:poke53280,12
  7. 10 fort=1to5000:next:poke53281,0:poke53280,0:poke53265,27:poke53270,200
  8. 15 poke53272,20:poke56576,151:poke53272,23
  9. 50 print"[147][158][196]o you need instructions? <y/n>"
  10. 55 geta$:ifa$=""then55
  11. 60 ifa$="y"then100
  12. 65 ifa$="n"then504
  13. 70 goto55
  14. 100 jv=peek(56320):fr=jvand16:print"[147]"
  15. 102 print"           [215]elcome to [211][208][197][204][204][197][210]"
  16. 106 printtab(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]     "
  17. 108 print"[159][211][208][197][204][204][197][210] is an educational program that"
  18. 112 print"allows you to practice the spelling"
  19. 116 print"of everyday objects.  [207]ver one hundred"
  20. 118 print"pictures are on this disk for you to"
  21. 122 print"recognize and spell.  [217]ou must leave"
  22. 124 print"the disk in the drive.  [193] joystick in"
  23. 126 print"port 2 is required.  [207]nce the program"
  24. 132 print"has started, there are three options:"
  25. 136 printtab(16)"[158][211][159]pell it"
  26. 138 printtab(16)"[158][214][159]iew  it"
  27. 144 printtab(16)"[158][209][159]uit to [204][207][193][196][211][212][193][210]."
  28. 146 print"[211]pell it"
  29. 150 print"[163][163][163][163][163][163][163][163]"
  30. 152 print"[159][212]his is the main program.  [207]nce this"
  31. 156 print"option is selected, the drive whirls and"
  32. 160 print"[145]an object appears on the screen.  [213]se"
  33. 162 print"the joystick to move the box cursor to"
  34. 166 print"the appropriate letter and press the"
  35. 168 print"fire button."
  36. 180 printtab(9)"[158][208]ress [198]ire[146] [158]to continue[145]"
  37. 182 jv=peek(56320):fr=jvand16
  38. 184 iffr<>16then201
  39. 186 goto182
  40. 201 print"[147][159][207]nce you have finished spelling the"
  41. 205 print"word, move the cursor to the bottom"
  42. 207 print"section and the cursor will turn into"
  43. 209 print"a pointing finger.  [205]ove the finger to"
  44. 213 print"the [197][206][212][197][210][159] box and press the button."
  45. 217 print"[201]f you spell the word correctly, the"
  46. 219 print"word [195][207][210][210][197][195][212] appears at the top of the"
  47. 221 print"screen, a bell rings and the screen"
  48. 223 print"flashes.  [193] new object then appears."
  49. 225 print"[201]f you spell the word incorrectly, the"
  50. 227 print"the word [215][210][207][206][199] appears at the top of"
  51. 229 print"the screen and a buzzer sounds.  [212]he"
  52. 231 print"correct spelling is then flashed five"
  53. 233 print"times."
  54. 235 print"[212]o continue, move the finger to [197][206][212][197][210][159]"
  55. 243 print"and press the firebutton.  [193] new"
  56. 245 print"object will appear."
  57. 247 printtab(9)"[158][208]ress [198]ire[146] [158]to continue"
  58. 248 jv=peek(56320):fr=jvand16
  59. 249 iffr<>16then255
  60. 250 goto248
  61. 255 print"[147][214]iew it"
  62. 257 print"[163][163][163][163][163][163][163]"
  63. 261 print"[159][212]his is the tutorial mode.  [201]n this
  64. 263 [153]"mode, the word and its spelling are"
  65. 265 [153]"shown to you."
  66. 308 [153]"right$t is (NULL)vallen(NULL)(NULL)(NULL)val(NULL)str$valstr$open that you try this"
  67. 314 [153]"mode a time or two before choosing the"
  68. 318 [153]"(NULL)pell right$t option so that you can become"
  69. 320 [153]"familiar with the pictures and spellings"
  70. 322 [153]"onof the objects."
  71. 326 [153]"(NULL)o exit this mode, choose the (NULL)uitopen"
  72. 328 [153]"option at the bottom of the screen."
  73. 340 [153]"(NULL)uit"
  74. 342 [153]"tab(tab(tab(tab("
  75. 344 [153]"open(NULL)ou'll be asked if you are sure, and if"
  76. 346 [153]"you are, you'll return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)."
  77. 372 [153]""[163]9)"sys(NULL)ress ascirewait systo continue"
  78. 380 jv[178][194](56320):fr[178]jv[175]16
  79. 382 [139]fr[179][177]16[167]412
  80. 385 [137]380
  81. 410 :
  82. 412 [153]"loadvaldit peekox"
  83. 414 [153]"tab(tab(tab(tab(tab(tab(tab(tab("
  84. 418 [153]"open(NULL)he edit box is located at the bottom"
  85. 420 [153]"of the screen and it contains three"
  86. 422 [153]"commands: sysvalnteropen, sysvalrase (NULL)etteropen, and sys(NULL)enuopen."
  87. 434 [153]"sysvalnter openis the main command.  (NULL)henever"
  88. 438 [153]"tab(tab(tab(tab(tab( openyou select this command, the"
  89. 440 [153][163]6)"program will continue."
  90. 446 [153]"sysvalrase (NULL)etter openerases the last character"
  91. 450 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( openthat was entered.  right$f you"
  92. 454 [153][163]13)"want to erase the whole"
  93. 456 [153][163]13)"word, hold down the fire"
  94. 464 [153][163]13)"button."
  95. 466 [153]"sys(NULL)enu openreturns you to the main menu."
  96. 468 [153]"tab(tab(tab(tab("
  97. 472 [153]"open(NULL)henever you are in the edit box, the"
  98. 476 [153]"cursor turns into a pointing finger."
  99. 482 [153][163]9)"sys(NULL)ress ascirewait systo continue"
  100. 489 jv[178][194](56320):fr[178]jv[175]16
  101. 500 [139]fr[179][177]16[167][153]"load":[137] 504
  102. 502 [137]489
  103. 504 gb[178]2:[151]56576,gb:sb[178]7:mb[178]1:[151]53272,sb[172]16[170]mb[172]8:gm[178]49152[171]gb[172]16384
  104. 505 sm[178]gm[170]sb[172]1024:mm[178]gm[170]mb[172]8192:[151]53265,[194](53265)[176]32:[151]53280,12
  105. 510 [153]"loadstopload"[199](34)"speller"[199](34)",8"
  106. 512 [153][163]14)"sysplease wait...":[153]"stop":[151]198,4:[151]631,13
  107. 514 [151]632,82:[151]633,213:[151]634,13:[128]
  108.